home *** CD-ROM | disk | FTP | other *** search
/ Data Base of the Video Yearbook 1995 / Data Base of the Video Yearbook 1995 - Disc 1.iso / cosmos / aiue.dir / 00003_É^ÉCÉgÉãï .ls < prev    next >
Encoding:
Text File  |  1995-12-21  |  1.4 KB  |  41 lines
  1. on mouseUp
  2.   global numb, kenname, kennamer, mydatebase, sdata, tkazu, taidata
  3.   set mline to mouseLine()
  4.   if mline < the number of items in taidata then
  5.     if mline <> -1 then
  6.       put mline, the number of items in taidata
  7.       set the textSize of field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ" to 18
  8.       set tno to value(item mline of taidata)
  9.       put item 2 of line tno of mydatebase into field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  10.       if item 11 of line tno of mydatebase <> "0" then
  11.         put "    " & item 11 of line tno of mydatebase after field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  12.       end if
  13.       set the textSize of field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ" to 18
  14.       set the textFont of field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ" to "osaka"
  15.       updateStage()
  16.     else
  17.       beep()
  18.     end if
  19.   else
  20.     beep()
  21.   end if
  22.   if (mline < the number of items in taidata) or (mline = -1) then
  23.     if doubleClick() then
  24.       if mline <= 0 then
  25.         set i to the number of lines in field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  26.         hilite line i of field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  27.         exit
  28.       end if
  29.       repeat with n = 1 to 2
  30.         set i to the number of lines in field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ" + 1
  31.         hilite line i of field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  32.         hilite line mline of field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  33.       end repeat
  34.       set numb to value(item mline of taidata)
  35.       set kenname to "AIUE"
  36.       set kennamer to "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  37.       go(1, "PACK2")
  38.     end if
  39.   end if
  40. end
  41.